home *** CD-ROM | disk | FTP | other *** search
/ PsL Monthly 1993 December / PSL Monthly Shareware CD-ROM (December 1993).iso / prgmming / dos / basic / pbc_bas.exe / STRUNSQ.BAS < prev    next >
Encoding:
BASIC Source File  |  1993-01-01  |  3.1 KB  |  155 lines
  1. '   +----------------------------------------------------------------------+
  2. '   |                                                                      |
  3. '   |        PBClone  Copyright (c) 1990-1993  Thomas G. Hanlin III        |
  4. '   |                                                                      |
  5. '   +----------------------------------------------------------------------+
  6.  
  7.    DECLARE FUNCTION AscM% (St$, BYVAL Posn%)
  8.  
  9. FUNCTION StrUnsq$ (St$)
  10.  
  11.    DIM x$(128 TO 255)
  12.  
  13.    x$(128) = ".  "
  14.    x$(129) = "   "
  15.    x$(130) = " th"
  16.    x$(131) = "the"
  17.    x$(132) = "ing"
  18.    x$(133) = "he "
  19.    x$(134) = "ed "
  20.    x$(135) = " an"
  21.    x$(136) = "ng "
  22.    x$(137) = "nd "
  23.    x$(138) = " a "
  24.    x$(139) = "and"
  25.    x$(140) = "to "
  26.    x$(141) = " of"
  27.    x$(142) = " wa"
  28.    x$(143) = "of "
  29.    x$(144) = "  "
  30.    x$(145) = "e "
  31.    x$(146) = " t"
  32.    x$(147) = "th"
  33.    x$(148) = " a"
  34.    x$(149) = "s "
  35.    x$(150) = "he"
  36.    x$(151) = "in"
  37.    x$(152) = "t "
  38.    x$(153) = "er"
  39.    x$(154) = "d "
  40.    x$(155) = "re"
  41.    x$(156) = " s"
  42.    x$(157) = " o"
  43.    x$(158) = "or"
  44.    x$(159) = "an"
  45.    x$(160) = "n "
  46.    x$(161) = " i"
  47.    x$(162) = ", "
  48.    x$(163) = "r "
  49.    x$(164) = "ou"
  50.    x$(165) = "te"
  51.    x$(166) = "on"
  52.    x$(167) = "ro"
  53.    x$(168) = " w"
  54.    x$(169) = "y "
  55.    x$(170) = "to"
  56.    x$(171) = "o "
  57.    x$(172) = "le"
  58.    x$(173) = "is"
  59.    x$(174) = "nd"
  60.    x$(175) = "at"
  61.    x$(176) = "es"
  62.    x$(177) = " c"
  63.    x$(178) = "--"
  64.    x$(179) = "ed"
  65.    x$(180) = "ar"
  66.    x$(181) = "en"
  67.    x$(182) = "ti"
  68.    x$(183) = "se"
  69.    x$(184) = " f"
  70.    x$(185) = "ng"
  71.    x$(186) = "it"
  72.    x$(187) = "f "
  73.    x$(188) = "st"
  74.    x$(189) = " b"
  75.    x$(190) = "me"
  76.    x$(191) = ". "
  77.    x$(192) = " m"
  78.    x$(193) = "ve"
  79.    x$(194) = "of"
  80.    x$(195) = "al"
  81.    x$(196) = "ha"
  82.    x$(197) = "ne"
  83.    x$(198) = "nt"
  84.    x$(199) = " r"
  85.    x$(200) = "as"
  86.    x$(201) = " d"
  87.    x$(202) = "ra"
  88.    x$(203) = "ri"
  89.    x$(204) = "a "
  90.    x$(205) = "de"
  91.    x$(206) = "ll"
  92.    x$(207) = " p"
  93.    x$(208) = "co"
  94.    x$(209) = "et"
  95.    x$(210) = "l "
  96.    x$(211) = "hi"
  97.    x$(212) = "g "
  98.    x$(213) = "il"
  99.    x$(214) = "ut"
  100.    x$(215) = "la"
  101.    x$(216) = "ea"
  102.    x$(217) = "be"
  103.    x$(218) = "us"
  104.    x$(219) = "ma"
  105.    x$(220) = "pe"
  106.    x$(221) = "am"
  107.    x$(222) = " e"
  108.    x$(223) = "wi"
  109.    x$(224) = " l"
  110.    x$(225) = "lo"
  111.    x$(226) = " n"
  112.    x$(227) = " h"
  113.    x$(228) = "tr"
  114.    x$(229) = "om"
  115.    x$(230) = "ow"
  116.    x$(231) = "h "
  117.    x$(232) = "el"
  118.    x$(233) = "ch"
  119.    x$(234) = "pr"
  120.    x$(235) = ": "
  121.    x$(236) = "ec"
  122.    x$(237) = "ay"
  123.    x$(238) = "si"
  124.    x$(239) = "io"
  125.    x$(240) = "ur"
  126.    x$(241) = "yo"
  127.    x$(242) = " y"
  128.    x$(243) = "ac"
  129.    x$(244) = "li"
  130.    x$(245) = "ca"
  131.    x$(246) = " :"
  132.    x$(247) = "fo"
  133.    x$(248) = "ee"
  134.    x$(249) = "fi"
  135.    x$(250) = "di"
  136.    x$(251) = "Th"
  137.    x$(252) = "rs"
  138.    x$(253) = "ic"
  139.    x$(254) = " u"
  140.    x$(255) = "mo"
  141.  
  142.    s$ = ""
  143.    FOR x% = 1 TO LEN(St$)
  144.       ch% = AscM(St$, x%)
  145.       IF ch% < 128 THEN
  146.          s$ = s$ + CHR$(ch%)
  147.       ELSE
  148.          s$ = s$ + x$(ch%)
  149.       END IF
  150.    NEXT
  151.  
  152.    StrUnsq$ = s$
  153.  
  154. END FUNCTION
  155.